UUU 


UUU UUU 
UUUUUUUUUUUUUUU 
UYUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
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**F ILE**1D**RMSTESTO 


wonouono 
owuouono 
ono ono ono 
ovo ono ono 
ono ono ono 
ele) oo vere) 
woo ono ono 
ono ono ono 
woowuowouoououovono 
wowowouououowowovuno 
= 
—— 
oe 
—— 


ee ee oe ae ee 
a ed ee ee ee ee ee eo 
a 


ee 
To 
—— 
nn NNnNM 
nn NNN 
nn “nn nn 
nn nn own 
aw nn nn 
mw mn nn 
nn nw nn 
nn nn nn 
NNN nn 
ANNM nn 
usw ww 
ww ww 
uu wu ww 
uw uw wu 
wus wi wu 
wou ww ww 
asus ww www 


dud wud wud 
LVS TUU TUS I UU VST Vervelvelvurvelvurvelvslvel 
WU Us a a a 


ee ee er 
le ee 


oo 
a 
= 
nn NNNM 
nn NNN 
nw nn 7) 
nw nw nn 
ann nn nn 
nw nn nn 
nw nn nn 
nn nn nn 
NNW nn 
NNN nn 


nn MWMnn 
“nn MNMnn 
“nw “wn “Mn 
nn nn nw 
nn wn nn 
Mn “nn nn 
nn “nn “wn 
“own nn “nw 
MNNWnwn “wn 
NMNM nn 
— omen 
“ee — 


LLLLLLLLLL 
LLLLLLLLLL 


LL 
LL 
LL 
LL 
LL 
LL 
LL 
LL 
Li 
LL 
LL 


11 
whe oe ert 9 MCSESHOHL SLABUY MEGMSsESE EB Mnin M9 dy 


SBEGIN RMSTEST6,007,__RMSTEST,<TEST MAGTAPE>,<GBL,LONG> 


-ENABL DBG 

SDEVDEF 

«NLIST MEB 
macros: 


«MACRO BUFF NAM,SIZE 
NAM‘ BUF : : 


-ENDM TYPE 


COOoOoCooooooooooooooe 


-BLKB SIZE 
00 NAM'BSZ==SIZE 
0 .ENDM BUFF 
$0 
00 .MACRO TYPE STRING, ?2L 
00 STORE <STRING> 
00 BLBC VERBOSITY,L 
00 MOV.  #$$.TMPX, CMDORAB+RABSL_RBF 
00 MOVW  #$$.TMPX1, CMDORAB+RABSO_RSZ 
0 SPUT § RAB=CMDORAB,ERR=REPORT_ERROR 
00 BSBW 3SséERRR 
3 
$0 
00 
00 
00 


-MACRO WTTYPE STRING 
SWAIT RAB=CMDORAB 

E <STRING> 
-ENDM 8 WTTYP 


“MACRO STORE STRING, PRE 
-PSECT __SRMSNAM 
PX=7 


; store any carriage control info 
ASCII &%STRINGZ 

$$. TMPX1=.-$$. TMPX 

«RESTORE 

-ENDM STORE 


~O 02.09 Co CD CODCOD CDN CD00 SII 
DARWIN HOO NONE WII OOO NOU UD OOO0 SOUR OI OUT UIN 
Bete 


2 3 4 MQOOTSCOCOOSCSCOWOWOOOODOwowowo 


SSSSssssssssssssssssssssss 
SSSSSSeSSSSeses So 
a kd td td od 


SSssssssss 
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1 
1 MACRO BEGIN TSTNAM 
1 STORE <TSTNAM> 
1 MOVL 5 - TAPX ,BEG_DESC ee 3; addr 
1 MOVL # #$$.TMPX1,BEG_DES : Len 
124 BSBW BEGPUT 
125 .ENDM BEGIN 
1 : -MACRO FINISH TSTNAM 
1 TORE <ISTNAM> 
1 VL #$$.TMPX,FIN pes ase 3; addr 
1 MOVL  #$$.TMPX1,FIN_D > len 
1 BSBW Ss FINPUT 
1 -ENDM = FINISH 
1 5 “MACRO FIELD FLDNAM 
1 STORE <PLD NAM 
134 MOVL 4#$$.TMPX,FLD_DESCR +4 : addr 
135 MOVL #$$.TMPX1,FLB_DESCR : len 

00 1 : BSBW FLDPUT 

0 1 .ENDM = FIELD 

000 138 “MACRO mBpr 7L 

99 139 BLBC VERBOSITY,L 

0 140 BPT 

444 141 L: 

00 148 .ENDM MBPT 
0000 14 
0000 144 


witha 


TEST MAGTAPE 


0000 


00000000 


52 41 56 54 4D 
00000005 


58 49 46 54 4D 
43 46 56 54 4D 
31 54 53 54 4D 
58 49 46 46 4E 


are 


ODOOO0000 


9D 


" 
7 eT Pa ta ae ys a ke 


RMSTEST,GBL,LONG 
NG 


rem i 


-PSECT 
“ALIGN C6 
6START:: 
TAFAB: SFAB DNM=<TSTSMTA: .FIL;1>, fns=fnsi 
RAB: $RAB $$ RHB=RHBBUF , UBF =] OBUF .FAB=MTAF AB 
BUFF j0.512. 
LONG > key 


2-4 


= 5 


for random lookup 


file names for various files 


TR te te ee 
ae 
i 


AR_FNM: 
sASCI] = \MTVAR\ 


ASCII \MTVFC\ 


MTST1_FNM: 
»ASCIIT = \MTSTI\ 
NONF IL_FNM: 
eASCII = \NFFIX\ 


ea ee ed ed od od 3 od dd dD 
PREPARA Mr 


DONAULE WN CO OONAUE WHO OONO 
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his is a test program to test out the use of magtapes through rms-32 
t exercises the basic functionality 


TSTSMTA:: 


OFFC WORD “M<R2,R3,R4,R5,R6,R7,R8B,RI,R10,R11> 


create 3 files on the tape - with different record formats, and fill them 


BEGIN <MAGTAPE TESTS> 


: the ist file -- rfm=fix 


59 FD84 CF ODE MOVAL _MTARAB,R9 


$FAB_STORE FAB=MTAFAB, RFM=E1X,MRS=#50, FNA=MTFIX_ FNM, 
poreeavo SUP>,RAT=<CR,BLK>,FAC=PUT 
SRAB_STORE RAB=R9,RS2=450,RBF =] 0BUF 


create a file and close it in order to discover if the device is mounted foreign 


SCREATE FAB=MTAFAB,ERR=REPORT_ERROR 
BSBW RR 


FCF3' 30 SB 
078 0 BSBW CLOSE_MT 
04 FD2B CF 1 0 BBS #DEVST_FOR,FABSL_DEV+MTAFAB, 5$ 
000 ? gaat STRMT 
OS1E 0 5$ BSBW NON_FILE 
RET 
STRMT: 
TYPE <CREATE 3 TEST FILES ON TAPE> 
MOVL #50,R6 3; alternate record size 
BSBW DO0_PUT 


now the 2nd file w/ rfm = var 


| A _ F AB=MTAF AB, FNA=MTVAR_FNM,RFM=VAR ,MRS=#0 ,BLS=#512,- 
= 
BBC bdEV $v_SQD, FABSL -PEV (RO), ,10$; branch if not magtape 
BICB2 #FABSM_ ~BLK AF me | AT(RO): verify oe Cofaulting 
10$: $RAB er oe RS I=479 : prinary | ength 
MOV Ne R6 ; alternate size 
BSBW D0. *te 


04 $9 AO 5 4H 
” 0738 0 


now the 3rd file w/ rfm = vfc 


oOo: 
HANAN. AAA. A.A AAA ANA AAA AA. AAAI AIP PO DIPUPIPIPOPOPIPIPUDINYPIPIPIPIPIPOPOPIPOPUPOPUNPININNYPY 


0006090909 C9 SIN SUT UT UU BS at OO HH HH HMOOOOOOOOCWWMWIOIOIWDWOIOWDOWOWOOWw 


WOOD UNIPI AM COWIWWIWIWWIWIIWIWO OMIM GS SP ODOOS F 000000 TNS OS 000090009 00 WIWIWIWIWIWW ts 


RPMININININ 4 9 9 PP FOO DOODOOOO OOO OOOO OO 00009090909 0909090909 I INNS 


BIE WN OOOO NA UENO OD NAUE WN SO OO NAUE WN 0 OBNAU EWP 0 OONOULS WO 


PORIPOPOPORONONONONONOPONONONONOPOPONONONONININONPU NY 2 2 ss 


uw 
o 
oO 
~“ 
VIW 
oor 
Wo So 
oo *- 
SOOCOOOCOOCOCOOCOOOCOOCOCOOOOCOOOOOOOOOOOOOOOOO 


FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
Fi 
Fi 
Fi 
Fi 
Fi 
Fi 
Fi 
Fi 
Fi 
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RAS TESTO TEST MAGTAPE ; 


7 
: 8 $FAB_STORE F AB=MTAFAB, FNA=MTVF C_FNM,RFM=VFC,BLS=#1024,- 
FOP=2POS ,RWC,SUP>, FSZ=84 
A 0 $RAB_STOR RAB=R9,RSZ=475 ; primary size 
56 637 0 AF MOVL #55 ¢ : alternate size 
06F6 B2 2 BSBW © D0_PuU 


RMSTEST6 TEST MAGTAPE ; 16-SEP-1984 01:49:14 VAX/VMS Macro v04-00 Page 
yoe~b00 BreEE138e bussasot LORTP SRC sansre Ste war: 1 ve 
ee 
: 5 : reread 3 created files and verify their contents 
5 $9 = 
8 41 TYPE <RE-READ RAB=RS RO te abl IN STEP 1> 
E4 t SRAB_ stone <LOC> 
EC 26 SFAB Bag TOR ABRTAFAB, FNA=MTFIX_FNM,FOP=#0,- 
72F 0 ? C te be one REL eheeceer. BRO> 
01 ec1d CF 3 4 73 et MTAFAB+F ABSB_ RFM,MFABSC_FIX; is it fixed rfm? 
15 13 040 4 BEQL Al 
41 48 FIELD <RFM (NOT = FIXED)> 
1E FC16 CF 05 E1 4 49 RMT1: BBC #DEVSV_SQD,FABSL_DEV+MTAFAB,RMT2; skip test if disk 
0800 8F FCOD cf a r 8 29 bear NT AE ABTF ABSU_ BLS7#2048 ; is block size right? 
434 5 FIELD <BLS> 
32. =FBE9 CF 81 $449 33 RMT2: CMPW MTAF AB+F ABSW_MRS 450 ; is record size right? 
3 13 Bee 588 Peety | EARS> 
0738 33 Stes $ RMT3: BSBW BEAD MT ; read and verify records 
32 3 0468 5 -BYTE 50,50 
081A 3 O46A 38 BSBW EOF _CLOSE : check eof and close 
046D 60 ; 
Beep 61; 2nd file 
been 568 
0686 30 4 4 rt: sf. STORE F AB=MTAF AB, FNA=MTVAR_FNM,RAT=#0,ORG=REL 
02 FB99 CF 91 bese 98 CMPB ITAL XB+FABSB_ RFM,#FABSC_VAR 
6S Re ae Filta IBS or = va 
0200 8F FBSA CF Bi 3 69 RMT4: CMPW MTAFABSEABSW BLS, 4512 ; is block size correct? 
oe es Petty | SBLS> 
FB76 CF 83 rid Le RMTS: TSTW MTAF AB+F ABSW_MRS : is max record Jize right? 
we i te Ae a 
06C1 3 D 75 RMT6: BSBW READ aT VAR : read & verify records 
O7AA 0 ipo 6 BSBW EOF _CLOSE 
4DD 78 ; 
4DD 8 ; 3rd file 
tp> 58) 
40D § $SFAB_ stone F AB=MTAF AB, FNA=MTVFC_FNM,RAT=#0,ORG=REL 
Gore 3° SEF BSBW PEN 
03 FB29 CF 1 ars 4 CMPB ANT RFM+MTAFAB,MFABSC_VFC; right record format? 
ae a ee 
1€ FB2D CF 05 E1 oF § RMT7: BBC SDEVSV" D FADS. ESTAR AB RMT8; skip est if disk 
0400 BF FB24 CF 81 1 CMPW MTAT ABT? ABSu _BLS7A : right block size? 
7. Eg See 


am —EE 


Pier ee = ee ee ee eS ee ee fe Paha eee eR Eee Me gh ie ae ee) oe SEE. ir eae Tk oe TE ee Poe tee ea 


¢ 12 
RMSTEST6 TEST MAGTAPE ; 16SEP=1984 01:49:14 VAX/VMS Macro v06-00 > ? 
§02 500 Toe ree CM tc ae ts |e ke 
FBO0 CE BS 91 RMT8: TSTW  MTAFAB+FABSW_MRS : ore oh? 
5 9 BEQL RMT 
9 FIELD  <MRS> 
0650, 30 0540 294 RMT9: BSBW. READ MT 
0732 5 329 96 BSBw EOF _CLOSE 


vOo-600" apse "SrSEp=198¢ 84:22:01 WetPesacdansrestocman:1 = "99° 48) ve 


; read records from block 4 thru end of file, verifying goodness 


9 
38 3+ 
; re-open mtvar.fil and test spacing and rewind 
4 
5 TYPE <PERFORM peace AND REWIND yf 
584 § $FAB_STORE F AB=MTAF AB, FNA=MTVAR_F NM 
05A6 30 O58F BSBW” Ss OPEN 
20¢ 8 see og Oe RAB=R9,BKT=#16 ; space count 
O6F3 30 23 10 BSBW CHKEOF1 :; verify at eof 
5A2 11 $SRAB_STOR R9,BKT=#16 
5A6 \¢ SSPA 3 np Ry torverd at eof 
06E3 30 OSAF 1 BSBW CHKEOF1 s i at eof 
5B2 14 $RAB_STOR RO, BKT=#-16 3 ent Bay bad 
5BA 15 SSPACE 
O6DF 30 Bat? 18 BSBW CHKBOF : verify at start of file 
5¢6 1 $SRAB_STORE R9,BKT=48 
FA24" 30 Baca | esau RAB=R9, ERR=REPORT ERROR 
050C 0 $RAB_STORE Ro, BKT=40 3; count = 0 
OSDF 1 sepate RAB=R9, ERRZREPORT ERROR 
a SRABSTORE RO, BKT=#=4 
O5F9 4 SSPATE. RAB=R9,ERR= REPORT ERROR 
FOFS* 30 0608 5 BSB ERR 
0608 6 
0608 7 
0608 8 
8 
57 39 9A 0608 1 MOVZBL #*A/!/4+24,R7 : starting rec # 

ose a st ¢ +3 gory 3: verify records 

0613 4 SRAB stOss R9,BKT=#-100 
618 5 SSPATE R 
067E Hi 624 § BSBW CHKBOF 3; verify at start 
0571 0 0627 goby READ_MT_VAR 
62A 8 SREWIND RAB=R9, ERR=REPORT_ERROR 

448 0 0639 3 BSBW 

05 f 8 C 40 BSBW READ_MT_VAR 

064 063F 41 BSBW EOF CLOSE 


E 12 
RMSTEST6 TEST MAGTAPE ; 16-SEP-1984 01:49:14 VAX/VMS Macro v04-00 P RM 
panty moet rae eS rc ae ig | ek a 


4 43 
t$ 4g i** 
? 3 3; test of ‘create if'’ and $nxtvol 
rh on rh 
4 Q- TYPE <PERFORM axeke le IF*', STRUNCATE AND me TESTS> 
67 1 $FAB_STORE FAB=MTAFAB,FAC=PUT,FNA=MTST1_FNM 
4. 4 FOP=CIF ,RFM=V 
8 SERASE FAB=R 3; erase in case disk file 
0475 3 4 BSBW CREATE_M 
00000000 ' 8F F96C 44 ; H ‘ Brot ATAF ABTFABSL_ STS,#RMS$_CREATED 
6A 5 FIELD <STS (EXPECTED ‘'RMS$_CREATED'’)> 
F945 30 on 23 bye ERR 
59 RMT11: RAB_STORE RAB=R9, RBF=IOBUF ,RSZ=450 
04 a9 02 88 06C 60 gise2 #RABSM_TPT,RABSL_ROP(R9); allow put not at eof 
ts 61 PUT pageny. TERR=REPORT_ ERROR 
F925" 30 D8 $6 BSBW ERR 
O3E4 0 06DB 6 BSBW CLOSE_MT 
oe 
sets 08 3 now re-open file just created above and overwrite record 
6DE 368 ° 
bebe 4 $F AB_STORE FAB=MTAFAB,FAC=<GET,PUT, TRN>,FOP=<CIF ,NEF> 
0418 30 Bees 0 BSBW «=6-—s CREATE 
00000000 ' 8F F912 44 9 bere 4 eror RIAL GOFF ABSL STS ,#RMS$_NORMAL 
of rg FIELD <STS (EXPECTED ‘'NORMAL'')> 
F8EB’ 30 1 74 BSBW 
71 75 RMT12: $RAB_STOR RAB=R9 ,, RBF=I1OBUF ,RSZ=479 
56 638 8 721 6 MOVL #59,R6 3; alternate rec size 
0380 0724 37 BSBW PUTRECS 
st 8 
727 0; test truncate 
ta 
O3AD 30 0727 g BSBW PUTRECS 3 write 2nd half of file 
72A 4 SREWIND RABERS: ERR=REPORT_ERROR 
F8C4" 30 0739 5 BSBW ERR 
045C¢ 0 0735C § SBW READ_M ; read ist half of file 
73F Y RABCRS. ERRe REPORT_ERROR ; need to advance the current 
F8AF* 30 Pe 3 £5 ay record pointer before truncate 
o? TRUNCATE RAB=R9, ERR= =REPORt ERROR 
F89D" Hi 69 0 S : ~truncage 2nd half of file 
0526 7 91 SBW CHKEOF eck for eof 
- 4 35 ae STOR RAB=R9,RBF=I0BUF , Pil 
osée 88 77 94 SBW RECS ; re-put 2nd half 
77 95 REWIND RABSA ERR=REPORT_ERROR 
F876' 8 7 38 SBW Re 
OE 78A .] BSBW READ_MT_VAR 3; read Ist half 
rt 3 . 8 38 BSBW READ“ MT_VAR ; read 2nd half, verifying 


BSBW CHKEOF ; check for eof again 


= senmidhdimatieataamiiie rc 


TEST MAGTAPE 


39 


30 


05 


Sek el ee ee el el ek lk el al Dal Del a 


RNIN 2 SS QO OOO ODOOOO 


MRO OONOUES WN 0 OS NOUS WO 


"SrSEb=]obe Garsosor LuetPrsacdameréstecman;1 29° (19, 


IND ae »ERR=REPORT_ERROR 


W 

\d 

W READ_M 3; read ist half 
T RABORO. EXREREPORT ERROR : need to advance the current 

W RR ord pointer before truncate 

UNCAT RAB=R9, ERR=REPORT_ ERROR: rune 2nd half 

W RR egye f le as before 

BBC #DEV$V_SQD FABsi -DEV+HTAPAB, branch f not really mt 
LBC VERBOSTTY h 


SRE 
fe 
i 
tt 
BSB 


: branch if not interactive 
NXTVOL RAB=R TERREREPORT _ERROR 
RAB_STOR RAB=R9 ,, RBF ={O0BUF ,RSZ=4#79 
MOVL~ 
SREVIND pigs ERR=REPORT_ERROR 
SBW READ_MT_VAR ; reed recs from rel vol 1 
SBW READ_MT_VAR ead recs form rel vol 2 
FAB _STORE ‘ “FAB=MTAFAB,FOP=<RWC>; cause volume set rewind 
FINISH <MAGTAPE TESTS> 
RSB 
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3+ 
3 non-file structured tests 


first write out a fix beng th 512 ti record file 
note: set tst$mta tS Ris non_file veh Rbk disk test wanted. 
mount/fo dev /rec=5 /blo=51 


NON_FILE: 
TYPE <NON FI FIL STRUCTURE CREATE TEST> 
$FAB_STORE RF AB=MTAFAB, RFM=F IX,MRS=#512,FNA=NONF IL_FNM,- 
RAT=#0,FAC=PUT, BLS =#512 
$R STORE ae RAB=R9,RSZ2=#512,RBF=10BUF 


59 =F7E2 CF ODE 


B 4 $ 
5 -« 
B 4 § 
B 4 
B 4 § 
B 4 
B 4 
B 4 
B 4 
B 4 
B 434 
B 435 
B 4 § 
ef 
iF 
56 00000200 4 8 90 «= 441 MOVL” #512, 
0204 AS re BSBW DO_PUT 
SBAy a 
BA? 445 ; now open file and check attributes 
are 
08A7 ret SRAB_STORE RAB=R9 ,ROP=<LOC> 
OB8AF 44 $FAB- 2 F AB=MTAF AB, FNA=NONF IL_FNM,FOP=40,RAT=40,- 
baat 450 FAC=<GET,B 
0270 30 C 451 BSBW OPEN. MT 
C 126 SREWIND RAB=R9, ERR=REPORT_ERROR 
726" 3 D 45 BSBW RR 
01 0 DA 454 BSBW CLOSE_MT 
50 peceneey, : 30 44 $82 govt corer ag AO 
01 F734 a4 +} +4 437 caps 1h all tani aati 
t38 FIELD seeCsee Le FIXED)> 
e738 Sa: oe 460 NF10: BBC #DEVS$V_SQD,FABSL -3 YSATAF ABNF 20 
020 F72F cf a + ree gone RAP ABS ABSU BLS7#512 
$1¢ 188 FIELD <BLS> 
0200 8F F708 cf a H rhe) NF 20: Hay 1g, AOtF ABOu_ARS..4512 
9 6 4 § FIELD <MRS> 
03 FOF6 CF 0088 §0 322 2 NF 30: Bry #DEVSV_SQD,FABSL_DEV+MTAFAB,NF35 
94E 4 § NF35: <NON-F ILE STR creed MT TESTS> 
1444 4 y SRAB STORE =#10 
1 47 gsrace RAB=R9, ERR= OREPORT ERROR 
F66D' 30 09 $76 ERR 
min 
99 475 ; read records from block 11 thru end 
se 
7 38 A 099 $78 MOVZBL #*A/!/ + 10,R7 
020A 9 996 47 BSBW ori 
00 99 480 BYTE ‘ 


9 RAB_STORE RAB=R9, BKT=#-10 
PACE RAB=R9,ERR=REPORT_ERROR 


‘el 
MOVZBL #*X71,R7 
W oOP1 


F64B' 30 
57 71 8F 9A 
01E7 ; 9B 
EOF CLOSE 
: FINISH <NON-FILE STRUCTURED MT TESTS> 


OOo 


0 


: non-file structured random disk test 


NF4O: TYPE <NON_FILE STRUCTURED RANDOM DISK TEST> 


: now open for keyed access 


$RAB_STOR RAB=R9 ,ROP=<LOC>, RAC=<KEY> , KBF =BUF 
MOVZBL # 7 


BSBW CHECK ONE 
MOVZBL #89,B0F 


BSBW CHECK ONE 
MOVZBL #25,B0F 


F877 CF 
FR6E CF 
00 3 
F866 CFO 9A 


—= DHOOCOCOV VV VTVTVTTFWWIeIw> 


1 
goss 30 


>PrPrrrrrrrrroonoownowvono 


MOPS OP AAA AOA NNN NNO STO 


H 12 
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WOwWo 
oro, 
OOOCOCOCSCO 


oom 
PVPVIVDWIV LVI LIV LV IVIVIUVLVIVIVSUDUSIVSIUSVSVSUSUS ISIS TSI ISIS E™ EE BP ES PPP PPP PEE 
WRIMRMNMNMNMNNIN = S | 3 3 2G OOOO O000000000.00.0.0.0000000000000000000 


SODNA MAL WN SO OO NAW EWN OS OO NAN WW O OO NAME WHO OONOU ES Wir 


A 

0023 3 A NF50: ®BSBW CHECK_ONE 

F3 FBSA CF 00000059 SF 3 A AOBLEQ 585 BOF ,NF50 

0084 30 OA BSBW L 

AoE FINISH <NON-FILE STRUCTURE DISK TESTS> 
05 Ao? RSB 

AS4 3 
Mee 3 check one disk record 
Aba : 
Ans CHECK_ONE: 
A54 $GET RAB=R9, ERR=REPORT_ERROR 

FSSA" 30 OA63 BSBW 

50 21 A Ao6 mOVZBL #*A/'/,RO 
50 F827 CF co A ADOL y 
22 A9 =: 0200 br 8} A E MPl #516 RABSW_RSZ(R9) 
A76 FIEL <RSZ> 
6€ 00 50 2889 22 a9 2D i ONE10: CHC) RABSW_RSZ(R9) -@RABSL_RBF (RO) .RO,- 
15 13 OAa9 BEQL  ONE20 
A9 FIELD <RECORD> 
05 OAAA ONE20: RSB 


meh 


F581 CF 


22 Ad 


CE 57 


OO5F 
27 
FS3E° 


F52a" 


ac 8 8 


22 03 6 
00000078 8F 


TEST MAGTAPE 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
AAB 
30 QAAB 
10 vo | 
AB 
30 OABF 
AC 
AC 
30 AD 
0 m4, 
AD 
AD? 
AD? 
AD? 
AD? 
AD? 
DO OAD7 
ADA 
2 ADA 
) AE 
AE 
30 OAF 
+ AF 
B AFD 
D 1 
F 4 
05 0B0C 
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oa 
a 


subroutines to do the nitty-gritties of the magtape tests 


routine to create a magtape test file 


r9 points t g, the ra » 

rebs Ww. easter conta ng the size of the records to be output 
“tf “the osternete ze of the records to be output 

will be destroyed 

r0 has fab address 


BSBW CREATE_MT 
BSBB PUTRECS i reate the records 
$DISCONNECT RAB=R9, ERR=REPORT_ERROR 
BSBW ERR 
CLOSE_MT: 
$SCLOSE FAB=MTAFAB,ERR=REPORT_ERROR 
BSBW ERR 
RSB 
; subroutine to actually put the records in the file 
PUTRECS: 
MOVL #*A/!/,R7 : ptarting eherester 
LOOP: gop te records 
MOVCS #9. (SP) ,R7,RAB$W_RSZ(R9). 1080 fi i jiobuf w/ sletestane 
MOVL 7, @RABS$L_RHB(ROY : fill’ in header 
spur RASRS, ERROREPORT _ERROR 
MOVW ety RSZ(R9) ,RO ; swap rec Lengths 
MOV ,RABSW_RSZ(R9) 


SNS SDE DDD DD DDI De TT Be Be BS BBE IWIN III 
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MOVL 
AOBLSS #*K7B,R7,LOOP 
RSB 


RMSTEST6 
v04 


F4DF 
F4DF CF 
F4C9" 


J 12 
TEST MAGTAPE ; 16-SEP-1984 01:49:14 VAX/VMS Macro v04-00 Pa 14 
§-§ oats gh: :22: ‘bf UETP.SRCJRMSTEST6.MAR; 1 ” (18) 
: routine to create a file 
CREATE_M 
30 EATE FAB=MTAFAB.ERR=REPORT_ERROR 
D4 


MT: 

SCR 

BSBW 

gbrl OF et _FOP+MTAFAB 
CONN RAB=R9, ERR=REPORT_ERROR 

[ite 


a5 


4 : routine to open a mt file 
9 o 
94 OPEN_MT: 
30 4 poeee FAB=RO,ERR=REPORT_ERROR 
0 $7 Sonnect RAB=R9, ERR=REPORT_ERROR 
1 38 CMPB MTAF AB+F ABSB_ORG,#FABSC_SEQ 
1 00 BEQL OPN1 
3 FIELD <ORG iy fA SCUSNT Tat) > 
3 § OPN1 BBS #DEVSV_FOR,FABSL Pern TA 08 .0PME: branch if foreign test 
0 BITB #FA $m_ CR, RNATAFASTPABSE 
1 04 BNEQ OPN 
05 FIELD <RAT (CR NOT SET)> 
05 06 OPN2 RSB 


K 12 
vOr~000" 25 Pies "SrSEP=198e 04:32:01 EbEtprsacdansrestocman:1 "29° (33, 


8 6 : read and check magtape file 
Hf i . 
03. 10 0698 61g eADAMT-UaRs AD_MT 
38 os 443 1g gerre Ob Ro 
BA 1 
BA 18 READ_MT: 
57 21 00 * S Loops MOVL #*A/!/,R7 ; starting ciaracter 
51 3¢€ ag 0 BA 1 MOVL yt) FABC(R9) ,R1 ; Get the FAB address 
1fF Al 601s 91s«OOBA : CMPB 4 «= #FABSC_FIX,FABSB_RFM(R1)'; See if file is fixed 
12 OBAB BNEQ 10$ i: If not then skip next test 
57 OOO000S5E BF Di BAD 6624 CMPL #*A/*/ RT ; otherwise is the record of carret's 
\3 BB4 9 5 BNEQ 19s 3; Not carrets then continue 
D st § 108 INCL R : Skip that record 
$GET RAB=R9, ERR=REPORT_ERROR 
esse" 30 C § BSBW 
00000094'8F 28 A CA 630 CMPL RABSL_RBF (R9) , #IOBUF 
1D 361 D2 631 BNEQ LP1 ; branch if locate mode worked 
Ds 6 j FIELD <RBF (INDICATES MOVE MODE)> 
50 008 Fl 634 LP1: MOVZBL a(SP),RO ; get expected size 
0 3 635 BNEQ 5$ 
50 0200 a F ° § MOVZWL #512,R0 
A FC BRW 19s 
07 57 FF 6 3 5$: BLBS R7,10$ 3; branch unless alternate 
50 6E 2 6 MOVL  (SP),RO 
56 = («O01 Ht 640 MOVZBL 1(ROS,RO 3 get alternate record size 
2209 «5 9 64 10$:  CMPW RO, RABSW_RSZ(R9) + size right 
1D D 64 BEQL LP? > branch if right 
Eide sti 
28 B89 50 57 6E 00 645 LP2: CMPCS #0, (SP),R7,RO,@RABSL_RBF(R9); record contents ok? 
1D 966 BEQL ; bran f yes 
33 64 FIELD <RBF (BAD RECORD CONTENTS)> 
03 F3C9 CF 2$ rt LP3 CMPB MTAF AB+F ABSB_RFM,#FABSC_VFC 
23 650 BNEQ : branch if not vfc rfm 
57 2C B9 9 g CMPL @RABSL_RHB(RY) ,R7 3; rhb contents ok? 
D D BEQL LP4 
F ° FIELD <RHB> 
4 54 MBPT 
FF20 57 01 7A 4 if 655 LP4 ACBB #*X7A,#1,R7,LO0P1 
6E 2 : $28 apate #2, (SP) ; bump past args 
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5 
| ; subroutine to check for at eof and close mt file 
EOF _CLOSE: 
93 19 : be BSBB CHKEOF 
FE36 96 BRwW CLOSE_MT 
$5 
i ; subroutine to check for at eof 
7 oO 
735 CHKEOF: $GET Ro 3; expect eof 
74 CHKEOF1: 
00000000'8F 50 } of coe BO, @RnSS _£OF 
5A 33 0 ory MOVL R9,R10 
F35c' 30 i: BSBW —s EOF PUT ; give error mesg's 
5 679 CKS: RSB 
i 
aD ; 
ess : subroutine to check for error code = rms$_bof 
5 e 
00000000 ' 8F 4 § CHKBOF: CMPL RO, #RMS$_BOF 
5 BEQL § CKBEND 
688 MOVL R9,R10 
689 BSBw REPORT_ERR 
690 FIELD <STS (EXPECTED RMS$_BOF )> 
691 BSBW ERR 
$36 CKBEND: RSB 
69 
694 
695 .END 
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$$.PSECT 
CREATE MT 


$$. 
DEV$V 
DEV$V 
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RMSTEST6 TEST MAGTAPE ; 16-SEP-1984 01:49:14 VAX/VMS M v04-0 P 
Symbol table 873Eb=| 9Be 4:33:01 LUETP. src AMSTES TOMAR; 1 oe (38; 


RABSL_CTX = e D 
RABSL_F AB = D 
RABSL_KBF = D 
RABSL _RBF = D 
RABSL_RHB z= C D 
RABSL_ROP = 4 D 
SM_TPT = D 
RABSV_LOC = D 
ABSW_RSZ : D 
READ_AT BAO R D 01 
READ _MT_ VAR 9B R D O01 
REPORT _ERR eeerenee =X 1 
REPORT_ERROR eeeeeeee =X 1 
RHBBUF eeeeeeee YX 1 
RMS$_BO eeeeeeee =X 1 
RMS$_CREATED eeeeeeee =X 1 
RMSS_ eeeeeeee § X 1 
RMS$_NORMAL eeeeeeee =X 1 
RMT 00000425 R D 01 
RMT11 00000 R D 01 
RMTI2 90000713 R D Ot 
ate ts ood R D 01 
RMT 0000465 R D 01 
RMT4 00004 3E R D 01 
RMT5 000048C R D 01 
RMT 44 4 Td R D 01 
RMT 000 p206 R D 01 
ae 00000532 R D 01 
RMT SpObOSte R D 01 
STRAT OOOOOSTE RD Ol 
SYSSCLOSE eererere GX 01 
SYSSCONNECT eeeerere GX 01 
SYSSCREATE eeneeere GX 01 
SYSSDISCONNECT eeeeeeee GX 01 
SYSSERASE eeeeeere GX 01 
SYSSGET eeeeeeee GX 01 
SYSSNXTVOL eeereree GX 01 
SYSSOPEN eeeeeere GX 01 
SYSSPUT eereeere GX 01 
SYSSREWIND eeereree GX 91 
SYSSSPACE aeeeeere GX 1 
SYSSTRUNCATE eeereree GX 01 
TOSTART 0000000 RG D 01 
TSTSMTA_ 0000281 RG D 4 
VERBOSITY eeereree x 1 


gowweeecoeeescece 


PSECT name Allocation PSECT No. Attributes 


- ABS . 0008 000 < 9.) 0 ¢( g} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

RMSTEST CCD (¢ 3277.) O1¢ #1.) NOPIC USR CON REL OGBL NOSHR EXE RD WRT NOVEC LONG 
SABS$ 6 44 ( 0.) § ( §°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SRMSNAM . ( 14.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
~~ SRMSNAM 000241 ¢ 577.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


RMSTEST6 TEST MAGTAPE ; 19° 


-1984 01:49:14 VAX/VMS Macro v04-00 Pa 9 
VAX-11 Macro Run Statistics 1984 84:33 4 - (33) 


701 CUETP.SRCJRMSTEST6.MAR; 1 
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! Performance indicators ! 


te mmemcen eae enreece- -cmee - 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 :00: Q 0: : 9. 
Command processing 105 :00:00. 0:00:03. 
Pass 1 431 00:25. 0:00:54. 
Symbol table sort 0 :00:00. 7:00:01. 
Pass 141 + 04.74 : ats 
Symbol table output 20 :00: 8-13 :00:00. 
Psect synopsis output § 0:00: Be 0:00:00.0 
Cross-reference output 00:00:00. 00:00: 9-08 
Assembler run totals 730 00:00:31.15 00:01:12.7 


ive working set yo was 1500 pages. 

115188 bytes (225 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space as yeetiee to hold 479 non-local and 17 local symbols. 
695 source Lines were read in Pass 1, producing 50 object records in Pass 2. 

68 pages of virtual memory were used to define 50 macros. 


er wr see eee meee ewe eee orem oe nt 


poe = 
H Macro library statistics ; 


Macro Library name Macros defined 
“$53 2SDUACE: PS 18-0811 18 MLB: 9 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 ; 
TOTALS (all Libraries) 7 


945 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSTEST6/OBJ=OBJ$:RMSTEST6 MSRC$:RMSTEST6/UPDATE=(ENH$: RMSTEST6) +EXECMLS/LIB 
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